home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b5.d64 / print'dir'reg.l < prev    next >
Text File  |  2007-02-28  |  468b  |  15 lines
  1. 9000 //
  2. 9010 PROC PRINT'DIR'REG(REF D$(),REF F'TYPE#(),REF F'BLOCKS#(),REF COUNT) 
  3. 9020 PRINT "DISK:";DISK'NAME$;"ID:";DISK'ID$
  4. 9030 PRINT 
  5. 9040 PRINT "NUM FILE NAME        TYP BLOCKS"
  6. 9050 PRINT "--- ---------------- --- ------"
  7. 9060 FOR X:=1 TO COUNT DO
  8. 9070 PRINT USING "###": X;
  9. 9080 PRINT D$(X),TAB(22),TYPE$(F'TYPE#(X));
  10. 9090 PRINT USING "###": F'BLOCKS#(X)
  11. 9100 ENDFOR X
  12. 9110 PRINT COUNT;"FILES AND";BLOCKS'FREE;"BLOCKS FREE"
  13. 9120 ENDPROC PRINT'DIR'REG
  14. 9130 //
  15.